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Problem 

In the Receive Purchase order section of IMS if the purchase order created 
was a large one and the quantity received left the amount not shipped 
greater than 32768 an OV ERROR will occur when the order is put on 
backorder status. This is caused by the variables involved being integers. 


Solution 

The problem is corrected by following the steps listed below. 

1. Backup the diskette(s) and make the changes on the Backup copy of the 
program. 

2. In BASIC load the program by typing LOAD "ORDER /BAS'*. 

3. Make the following corrections: 

CHANGES (Ret 3 ^e the line -or refer to the Edit section of the owners manual) 
Old Line: 3050 GET2,N:GOSUB2820:CS-CVS(Fl$(9)):PR!-CVS(F1$(10)):NC-0: 
FR=0:F-0 

New Line: 3050 GET2,N:GOSUB2820:CS=CVS(F1$(9)):PR!=CVS(F1$(10)):NC=0: 
FRX=«0:F*0 

Old Line: 3140 IFIN$<>"R"THEN3120ELSEQR-QO:FR=QD:QD»0:GOTO3210 
New Line: 3140 IFIN$<>"R"THEN3120ELSEQR»QO:FR!_-QD:QD»0:GOTO3210 

Old Line: 3190 IFIN$<>"B"THEN3160ELSEQO»QO-QR:FB»ABS(QD) 

New Line: 3190 IFIN$<>"B"THEN3160ELSEQO=QO-QR:FB|=ABS(QD) 

Old Line: 3330 IFFR>0THENR#«R#+FR:R1#»R1#+CS*(FR*FC)ELSEIFFB>0THENB#«B#+FB: 
B1#»B1 #+CS*(FB*FC) 

New Line: 3330 IFFR!>0THENR#-R#+FR!:R1#-R1#+CS*(FR!*FC)ELSEIFFB!>0 
THENB#-B#+FB!:bT#“B1#+CS*(FB!*FC) 


4. Type SAVE"ORDER/BAS" to save the changes in the program. 

5. At TRSDOS Ready, make a backup copy of the corrected diskette. 





















